30 REM********************************
32 REM*       MENU PROGRAM V2.0      *
34 REM* (C) BY DOUBLE L SOFTWARE     *
36 REM*     ION INTERNATIONAL INC.   *
38 REM* (C) 1988 ALL RIGHTS RESERVED *
40 REM********************************
41 CLR:POKE53296,1
42 AT=679:FORN=ATTOAT+22:READM:POKEN,M:NEXT
44 DATA32,180,2,132,251,32,180,2
46 DATA166,251,76,240,255,32,253,174
48 DATA32,158,173,32,170,177,96
50 POKE53265,PEEK(53265)AND239
60 GOSUB4000:V=53248:X1=75:Y1=100
80 DIM P$(4,12),PG$(4,12),IN$(4,12):GOSUB5000:NN=3:B=.:GOSUB5190
100 POKE53280,0:POKE53281,1:PRINTCHR$(14):GOSUB2500
110 POKE2040,15:POKEV+39,10:POKEV,X1:POKEV+1,Y1
120 GOSUB800:POKE53265,PEEK(53265)OR16:POKE53296,0
140 LC=55590:P=7:H=1:POKEV+21,1
145 B=B+1:IFB>NNTHENB=1
150 FORI=1TO12:SYSAT,I+6,14:PRINT"[144]"P$(B,I):NEXT:POKEV+1,Y1
204 F=LEN(P$(B,H)):FORA=0TOF:POKELC+A,8:NEXT:GOSUB1000
206 GETAN$:IFAN$=""THEN206
208 IFAN$=CHR$(17)THEN1250
210 IFAN$=CHR$(145)THEN1300
215 IFAN$=CHR$(13)THEN2000
222 IFAN$=CHR$(32)THENGOSUB3000:Y1=100:GOTO140
225 GOTO204
230 PRINT"[147]";:POKE53280,0:POKE53281,0:POKEV+21,0
235 PRINT"[158][204]OADING...";CHR$(34);P$(B,H)CHR$(34);"[144]"
240 PRINT"LOAD";CHR$(34);P$(B,H);CHR$(34);",8"
250 PRINTCHR$(142)"RUN":PRINT "[145][145][145][145][145][145][145][145][145]"
260 POKE 631,13:POKE 632,13:POKE 198,2:END
800 PRINT"[147]":SYSAT,2,2:PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
805 SYSAT,1,3:PRINT"[144][205]ENU [208]ROGRAM (C) [196]OUBLE [204] [211]OFTWARE"
810 SYSAT,3,2:PRINT"[221]  [144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]  [221]"
815 FORI=4TO19
820 SYSAT,I,2:PRINTTAB(2)"[221]  [144][221]                            [221]  [221]":NEXT
830 SYSAT,20,2:PRINT"[221]  [144][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]  [221]"
835 SYSAT,21,2:PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
840 SYSAT,22,1:PRINT"[144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
850 SYSAT,23,1:PRINT"[221] [150][195]RSR[144]=[211]ELECT  [211]PC[144]=[205]ORE  [154][195]/[210][144]=[197]XECUTE [221]"
860 SYSAT,24,1:PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
870 SYSAT,3,10:PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
880 SYSAT,4,10:PRINT"[221] [205] [193] [201] [206]  [205] [197] [206] [213] [221]"
890 SYSAT,5,10:PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
900 RETURN
1000 S=54272:POKES+23,0:POKES+24,15
1010 POKES+6,0:POKES+5,12:POKES+1,70:POKES+3,40
1020 POKES+4,0:POKES+4,65:FORD=1TO100:NEXT:POKES+4,0:RETURN
1250 Y1=Y1+8:IFY1>188THENY1=100
1255 POKEV+1,Y1:FORI=0TOF:POKELC+I,0:NEXT
1260 H=H+1:IFH>12THENH=1
1262 P=P+1:IFP>18THENP=7
1265 LC=LC+40:IFLC>56030THENLC=55590
1270 GOTO204
1300 Y1=Y1-8:IFY1<100THENY1=188
1305 POKEV+1,Y1:FORI=0TOF:POKELC+I,0:NEXT
1310 H=H-1:IFH<1THENH=12
1312 P=P-1:IFP<7THENP=18
1315 LC=LC-40:IFLC<55590THENLC=56030
1320 GOTO204
1550 SYS828:POKEV+21,0
1560 SYSAT,12,4:PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1570 PRINTTAB(4)"[221] [212]HIS IS A 128 [208]ROGRAM. [201]T MAY[221]"
1580 PRINTTAB(4)"[221] NOT BE LOADED IN THE 64 MODE.[221]"
1590 PRINTTAB(4)"[221] [217]OU MUST SWITCH TO THE 128   [221]"
1600 PRINTTAB(4)"[221] MODE IN ORDER TO LOAD THIS   [221]"
1610 PRINTTAB(4)"[221] PROGRAM SUCCESSFULLY. [213]SE THE[221]"
1620 PRINTTAB(4)"[221] PRESCRIBED METHOD WHICH IS   [221]"
1630 PRINTTAB(4)"[221] [196][204][207][193][196] ";CHR$(34);"[208]ROGNAME";CHR$(34);".            [221]"
1640 PRINTTAB(4)"[221]       [[208]RESS ANY [203]EY]        [221]"
1650 PRINTTAB(4)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
1660 SYSAT,22,3:PRINT"[144]                                  ":GOSUB1000
1670 GETAN$:IFAN$=""THEN1670
1680 SYS882:POKEV+21,1:GOTO225
1997 REM **************************
1998 REM ****  WINDOW ROUTINE  ****
1999 REM **************************
2000 SYS828
2010 SYSAT,4,11:PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
2030 PRINTTAB(11)"[221][211]EE [201]NSTRUCTIONS[221]"
2040 PRINTTAB(11)"[221][210]UN [208]ROGRAM     [221]"
2050 PRINTTAB(11)"[221][195]ANCEL [215]INDOW   [221]"
2060 PRINTTAB(11)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
2070 PO=55507:X=0
2080 FORI=1TO16:POKEPO+I,0:NEXT:GOSUB1000
2090 GETAN$:IFAN$=""THEN2090
2100 IFAN$=CHR$(17)THENGOSUB2200:PO=PO+40:X=X+1:IFPO>55587THENPO=55507
2110 IFX>2THENX=0
2120 IFAN$=CHR$(13)THEN2140
2130 GOTO2080
2140 IFX=0THENSYS882:GOTO4100
2145 IFX=2THEN2180
2146 IFB=1ANDH=3THEN2155
2147 IFB=2ANDH=1ORB=2ANDH=6ORB=2ANDH=11THEN2155
2148 IFB=3ANDH=1THEN2155
2149 REM IFB=4 THEN2155
2150 GOTO2159
2155 SYS882:GOTO1550
2159 IFX=1THENSYS882
2160 FORI=0TO35:POKEV,X1+I:FORD=1TO35:NEXT:NEXT
2170 POKEV+21,0:GOTO230
2180 SYS882:GOTO225
2200 FORI=1TO16:POKEPO+I,5:NEXT:RETURN
2500 P$(1,1)="[198]LANKSPEED":IN$(1,1)="[198]LANK IN"
2510 P$(1,2)="64 [194]UG [210]EP [201][201]":IN$(1,2)="[194]UG [210]EP IN"
2520 P$(1,3)="128 BUG REP II":IN$(1,3)="BUG REP IN"
2530 P$(1,4)="[194]OMBS [193]WAY!":IN$(1,4)="[194]OMBS [193]WAY! IN"
2540 P$(1,5)="[195]APTURE":IN$(1,5)="[195]APTURE IN"
2550 P$(1,6)="[211]IDE [194]ORDER":IN$(1,6)="[211]IDE [194]ORDER IN"
2560 P$(1,7)="[211]PRITE [210]OTATOR":IN$(1,7)="[211]PRITE IN"
2570 P$(1,8)="[205]INI-COMP":IN$(1,8)="[205]INI-[195]OMP IN"
2580 P$(1,9)="[204]ATER [196]ATE":IN$(1,9)="[204]ATER [196]ATE IN"
2590 P$(1,10)="[212]IME [195]LOCK":IN$(1,10)="[212]IME [195]LOCK IN"
2600 P$(1,11)="[212]IME [195]LOCK 2":IN$(1,11)="[212]IME [195]LOCK 2 IN"
2610 P$(1,12)="[195]LOCK [211]EGMENTS":IN$(1,12)="[195]LOCK [211]EG IN"
2615 P$(2,1)="CLOCK SEGMENTS":IN$(2,1)="CLOCK SEG IN"
2620 P$(2,2)="[198]ACTOR [198]UN":IN$(2,2)="[198]ACTOR [198]UN IN"
2630 P$(2,3)="[198]ACTOR [198]UN 2":IN$(2,3)="[198]ACTOR [198]UN 2 IN"
2640 P$(2,4)="[211]CREEN [200]ACK":IN$(2,4)="[211]CREEN [200]ACK IN"
2650 P$(2,5)="[212]RACK [212]RACE":IN$(2,5)="[212]RACK [212]RACE IN"
2660 P$(2,6)="BAM CHECK":IN$(2,6)="BAM CHECK IN"
2670 P$(2,7)="[211]TARTING [204]INE":IN$(2,7)="[211]TARTING [204]INE IN"
2690 P$(2,8)="[204]OCK [213]P":IN$(2,8)="[204]OCK [213]P IN"
2700 P$(2,9)="[198]LASHING [211]CROLL":IN$(2,9)="[198]LASHING IN"
2710 P$(2,10)="[195][194][205] [205]ODULO":IN$(2,10)="[195][194][205] [205]ODULO IN"
2720 P$(2,11)="BASIC INPUT":IN$(2,11)="BASIC INPUT IN"
2730 P$(2,12)="[196]OWNSHIFT 64":IN$(2,12)="[196]OWNSHIFT IN"
2740 P$(3,1)="DOWNSHIFT 128":IN$(3,1)="DOWNSHIFT IN"
2750 P$(3,2)="         ":IN$(3,2)="       "
2760 P$(3,3)="           ":IN$(3,3)="         "
2770 P$(3,4)="            ":IN$(3,4)="         "
2780 P$(3,5)="               ":IN$(3,5)="           "
2790 P$(3,6)="         ":IN$(3,6)="        "
2800 P$(3,7)="            ":IN$(3,7)="        "
2810 P$(3,8)="             ":IN$(3,8)="         "
2820 P$(3,9)="             ":IN$(3,9)="            "
2830 P$(3,10)="            ":IN$(3,10)="       "
2840 P$(3,11)="            ":IN$(3,11)="       "
2850 P$(3,12)="              ":IN$(3,12)="       "
2860 P$(4,1)="    ":IN$(4,1)="       "
2999 RETURN
3000 FORCL=7TO18:SYSAT,CL,14:PRINT"[144]                 ":NEXT:RETURN
4000 REMPOKE657,128:REM DISABLE SHIFT/COM KEY
4010 REMPOKE775,200:REM DISABLE LISTING
4020 REMPOKE808,234:REM DISABLE STOP/RESTORE
4030 RETURN
4100 SYS828:POKEV+21,0:ZZ$=IN$(B,H)
4105 OPEN2,8,2,"@0:"+ZZ$+",S,R"
4106 FORXX=1TO5
4107 INPUT#2,TX$(XX)
4108 NEXT:CLOSE2
4110 SYSAT,7,1:PRINT"[156][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
4120 FORI=8TO13:SYSAT,I,1:PRINT"[221]                                    [221]"
4125 NEXT
4130 SYSAT,14,1:PRINT"[221]   [144][[195]/[210]=[195]ANCEL * [211]PC=[210]UN [208]ROGRAM][156]   [221]"
4140 SYSAT,15,1:PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
4145 SYSAT,22,3:PRINT"[144]                                  ":GOSUB1000
4150 FORXX=1TO5:SYSAT,7+XX,3:PRINT"[156]"TX$(XX):NEXT
4160 GETAN$:IFAN$=""THEN4160
4170 IFAN$=CHR$(13)THENSYS882:GOTO204
4180 IFB=1ANDH=3THEN4195
4182 IFB=2ANDH=1ORB=2ANDH=6ORB=2ANDH=11THEN4195
4183 IFB=3ANDH=1THEN4195
4184 REM IF B=4
4190 SYS882:POKEV+21,1
4192 FORI=0TO35:POKEV,X1+I:FORD=1TO35:NEXT:NEXT
4194 POKEV+21,0:GOTO230
4195 SYS882:GOTO1550
4200 GOTO4160
5000 FORI=828TO935:READA:POKEI,A:NEXT:RETURN
5010 DATA 160,0,185,0,4,153,0,192
5020 DATA 185,0,216,153,240,195,185,250
5030 DATA 4,153,250,192,185,250,216,153
5040 DATA 234,196,185,244,5,153,244,193
5050 DATA 185,244,217,153,228,197,185,238
5060 DATA 6,153,238,194,185,238,218,153
5070 DATA 222,198,200,208,205,96,160,0
5080 DATA 185,0,192,153,0,4,185,240
5090 DATA 195,153,0,216,185,250,192,153
5100 DATA 250,4,185,234,196,153,250,216
5110 DATA 185,244,193,153,244,5,185,228
5120 DATA 197,153,244,217,185,238,194,153
5130 DATA 238,6,185,222,198,153,238,218
5140 DATA 200,208,205,96
5190 FORI=960TO1022:READN:POKEI,N:NEXT:RETURN
5200 DATA 0,0,0,0,0,0,0
5210 DATA 0,0,0,0,0,0,0
5220 DATA 0,0,0,0,0,1,192
5230 DATA 0,0,224,0,0,112,0
5240 DATA 255,252,0,255,255,0,255
5250 DATA 252,0,0,112,0,0,224
5260 DATA 0,1,192,0,0,0,0
5270 DATA 0,0,0,0,0,0,0
5280 DATA 0,0,0,0,0,0,0